home *** CD-ROM | disk | FTP | other *** search
/ Erect Magazine 15 / Erect Magazine 15.iso / mac / P_Bro.DIR / 00050.ls < prev    next >
Encoding:
Text File  |  1996-07-11  |  298 b   |  11 lines
  1. on mouseDown
  2.   set the visible of sprite (the clickOn + 6) to 1
  3.   updateStage()
  4.   set tempcur to integer(field "PhotoCUR_T") - 1
  5.   if tempcur < 1 then
  6.     set tempcur to integer(item integer(field "PhotoGRP_T") of field "PhotoMAX_T")
  7.   end if
  8.   put tempcur into field "PhotoCUR_T"
  9.   go("Disp")
  10. end
  11.